10 REM COPY C64 CHARACTER SET
40 POKE 56333,127 : REM IRQ OFF
50 POKE 1,PEEK(1)AND 251 : REM CHAR SET IN, I/O CHIPS OUT
80 REM COPY SET TO $6000
90 CSET=13*4096+8*256 : COPY=6*4096
100 FOR LOOP=0 TO 2047
110 POKE COPY+LOOP,PEEK(CSET+LOOP)
120 NEXT LOOP
150 POKE 1,PEEK(1)OR4 : REM I/O CHIPS IN, ROM CHAR SET OUT
160 POKE 56333,128+1 : REM IRQ ON
190 REM SAVE CHARACTER SET
210 PRINT"[147]8 - DISK"
220 PRINT"9 - DISK"
230 INPUT"SAVE TO DEVICE NUMBER";DEV
240 IF DEV<>1 AND DEV<>8 AND DEV<>9 THEN 230
250 POKE 780,0:POKE 781,DEV:POKE 782,0
260 SYS 65466:REM SETLFS
280 NAM$="C64 CHAR SET"
290 FOR LOOP=1 TO LEN(NAM$)
300 POKE 849+LOOP,ASC(MID$(NAM$,LOOP,1))
310 NEXT LOOP
320 POKE 780,LEN(NAM$) : POKE 781,850AND255 : POKE 782,850/256
330 SYS 65469 : REM SETNAM
350 POKE 253,0 : POKE 254,6*16
360 POKE 780,253 : POKE 781,26624AND255 : POKE 782,26624/256
370 SYS 65496 : REM SAVE
400 END